function [values2,ofv,tsub,infeas,binom,p,nn] = UP2c_p()

%load remaining data
data_struct = load('data2c.mat');
segNP = double(data_struct.segNP);
Y = data_struct.Y;
eps = data_struct.eps;
bound = data_struct.bound;
upMat = data_struct.upMat;
os = double(data_struct.os);
uniqSeg = double(data_struct.uniqSeg);
nyp = double(data_struct.nyp);
prices = double(data_struct.prices);
capcon = double(data_struct.capcon);
segScale = double(data_struct.segScale);
segQ = double(data_struct.segQ);
rem_cap = double(data_struct.rem_cap);
uniqSeg_size = size(uniqSeg);
nNewSegments = uniqSeg_size(1);
prices_size = size(prices);
nProducts = prices_size(1);
[y1,y2,y3]=ind2sub(size(upMat),find(upMat));
nRes = length(rem_cap);
inst = double(data_struct.inst);

prices_lb = zeros(nProducts,nProducts,nNewSegments);
for i=1:nNewSegments
     prices_lb(y1(i),y2(i),i) = prices(y1(i));
end

u = zeros(nNewSegments,3+nProducts);
usub = zeros(nNewSegments,nProducts);
for i = 1:nNewSegments
    u(i,:) = [uniqSeg(i,1)+1,y1(i),y2(i),os(uniqSeg(i,3)+1,:)];
    usub(i,:) = os(uniqSeg(i,3)+1,:);
    usub(i,y2(i)) = 0;
end

anzNBcap = find(rem_cap~=0,1,'last')-1; 

anzEV = 1+nNewSegments;
A = zeros(anzNBcap,anzEV);
for i = 1:anzNBcap
    h = i+1; 
    for n = 1:nNewSegments
        A(i,n) = capcon(y1(n),i)-capcon(y1(n),h);
    end
end

%b, Aeq, beq
b = [rem_cap(2:anzNBcap+1)'];
Aeq = [];
beq = [];

%OF
of = @of2c_p;
nlcon = @nlin2c_p;

[~,q2] = find(capcon==1);
if bound == 'lb'
    x0 = [zeros(nNewSegments,1);0];
elseif bound == 'ub'
    x0 = [zeros(nNewSegments,1);1];
    x0(nNewSegments) = min(Y(sub2ind(size(Y),y1(nNewSegments),y2(nNewSegments),nNewSegments)),rem_cap(q2(y2(nNewSegments))));
end

lb = [zeros(nNewSegments,1);0];
ub = [Y(sub2ind(size(Y),y1,y2,y3));1];

% fmincon
options = optimoptions('fmincon','MaxIterations',5000,'MaxFunctionEvaluations',30000);
tic;
[x,ofv,ef] = fmincon(of,x0,A,b,Aeq,beq,lb,ub,nlcon,options);
tsub = toc;


nn = x(1:nNewSegments);
p = 0;
stat = x(end);
values2 = zeros(nNewSegments,4);
values2(:,3) = prices(y1)+(prices(y2)-prices(y1))*stat;
values2(:,4) = x(1:nNewSegments);
for i=1:nNewSegments
    values2(i,1:2) = [i,y2(i)]; 
end

infeas = ef;
binom = 0;